home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 February / 1994-02b.d64 / relocate input.p (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  41 lines
  1. 100 rem relocatable input
  2. 105 input"relocate to";s:if(s>6000ands<40400)or(s>49151ands<52700)then115
  3. 110 print"invalid!":goto105
  4. 115 x=s:print"poking";
  5. 120 readx$:ifx$=""then140
  6. 125 fori=1tolen(x$)step2:z$=mid$(x$,i,1):y=asc(z$)-48+7*(z$>"@")
  7. 130 z$=mid$(x$,i+1,1):y=16*y+asc(z$)-48+7*(z$>"@")
  8. 135 pokex,y:x=x+1:z=z+y:next:print".";:goto120
  9. 140 print:print"relocating...":readw:ifz<>64383thenprint"data error":stop
  10. 145 readx:ifx<0thenend
  11. 150 p=peek(s+x)+256*peek(s+x+1)-w+s:pokes+x+1,p/256
  12. 155 pokes+x,p-peek(s+x+1)*256:goto145
  13. 160 data 1890034c07c2a9008d0cc2850520fdae209eada0
  14. 165 data 02b1649902008810f8a8f004c9c990034c71a5a5
  15. 170 data d1a4d21865d39001c885ae84af1865029001c8c0
  16. 175 data 08b0e520fdae208bb085fb84fc207900a2ffc92c
  17. 180 data d006207300209eb78606a5d385fda5d685fea602
  18. 185 data a4fdad860291f3c8cad0fa20a6c0a000b103c920
  19. 190 data d00ce603d002e604c602d0f0f00ea40288b103c9
  20. 195 data 20d00588c602d0f5a002b9020091fb8810f8a919
  21. 200 data 85168d0cc260a602a000b103c9609004297fd002
  22. 205 data 293f91aec8cad0eea5051865fd38a2ffe8e928b0
  23. 210 data fb692885d38a1865fe85d6aab5d929030d880285
  24. 215 data d2bdf0ec85d1a90185cda90085c685cc20e4ffaa
  25. 220 data f0fa85ff78a5cff007a90185cd58d0f458a90085
  26. 225 data c6e6cc200dc1189099a5ffa605c90dd003686860
  27. 230 data a40288d0034cc2c1c986d009a00a207bc18810fa
  28. 235 data 60c98ad009a00a206ec18810fa60c985d00b38ad
  29. 240 data 0cc21001186e0cc260c914d006206ec1d00560c9
  30. 245 data 89d0138aa8c8b103889103c8c40290f5a9208891
  31. 250 data 0360c99dd0098a08f003c605ca2860c91dd008e8
  32. 255 data e402b002e60560c911d003840560c991d005a900
  33. 260 data 850560c993d00bc8a92088910398d0f8f0ecc994
  34. 265 data d01ca4028888c405900eb103c8910388c405f005
  35. 270 data 881890f2c8a920910360a207a5ffddf8c1b005dd
  36. 275 data f1c1b005cad0f1f01cbdffc12506f0f4ae0cc210
  37. 280 data 0320a6c1a5ffa4059103c8c402b002e605602021
  38. 285 data 2b3a415bc121303a415b60db01100810021004,
  39. 290 data 49152,4,9,112,163,264,286,295,308,320
  40. 295 data 326,334,455,460,470,477,482,-1
  41.